home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / e / Text_Plug2.lha / testtext.e < prev    next >
Encoding:
Text File  |  1996-02-28  |  1.8 KB  |  55 lines
  1. OPT OSVERSION=37
  2.  
  3. MODULE 'asl',
  4.        'diskfont',
  5.        'graphics/text',
  6.        'libraries/asl',
  7.        'tools/easygui',
  8.        '*fonts',
  9.        '*text_plug'
  10.  
  11. ENUM ERR_NONE, ERR_ASL, ERR_FONT, ERR_LIB
  12.  
  13. RAISE ERR_ASL  IF AllocAslRequest()=NIL,
  14.       ERR_FONT IF OpenDiskFont()=NIL,
  15.       ERR_LIB  IF OpenLibrary()=NIL
  16.  
  17. PROC main() HANDLE
  18.   DEF fr=NIL:PTR TO fontrequester, font=NIL, a:PTR TO text_plug,
  19.       b:PTR TO text_plug, c:PTR TO text_plug, d:PTR TO text_plug
  20.   getdeffonts()
  21.   aslbase:=OpenLibrary('asl.library', 37)
  22.   diskfontbase:=OpenLibrary('diskfont.library', 37)
  23.   fr:=AllocAslRequest(ASL_FONTREQUEST,
  24.           [ASLFO_INITIALNAME,   'topaz.font',
  25.            ASLFO_INITIALSIZE,   9,
  26.            ASLFO_INITIALFLAGS,  FONF_STYLES,
  27.            ASLFO_INITIALHEIGHT, 200,
  28.            NIL])
  29.   IF AslRequest(fr, NIL)
  30.     font:=OpenDiskFont(fr.attr)
  31.     easygui('Test Text PLUGIN',
  32.            [ROWS,
  33.              [PLUGIN, NIL, NEW a.create('Default Fixed Width',
  34.                                         'Default Text Font:', 1)],
  35.              [PLUGIN, NIL, NEW b.create('Selected Font',
  36.                                         'Default:', 0, font)],
  37.              [PLUGIN, NIL, NEW c.create('Fixed',
  38.                                         'Selected:', 0, NIL, font)],
  39.              [PLUGIN, NIL, NEW d.create('Selected',
  40.                                         'Both:', 0, font, font)],
  41.              [BUTTON, NIL, 'Quit']
  42.            ])
  43.   ENDIF
  44. EXCEPT DO
  45.   IF font THEN CloseFont(font)
  46.   IF fr THEN FreeAslRequest(fr)
  47.   IF aslbase THEN CloseLibrary(aslbase)
  48.   IF diskfontbase THEN CloseLibrary(diskfontbase)
  49.   freedeffonts()
  50.   SELECT exception
  51.   CASE ERR_ASL;  WriteF('Error: Could not allocate ASL request\n')
  52.   CASE ERR_LIB;  WriteF('Error: Could not open ASL library\n')
  53.   ENDSELECT
  54. ENDPROC
  55.